home *** CD-ROM | disk | FTP | other *** search
/ HeiBe Erotik / HeiBe Erotik.iso / erovoll / dice / bestell.dir / 00038_Script_38 < prev    next >
Text File  |  1979-12-31  |  850b  |  29 lines
  1. on exitFrame
  2.   global Zahltyp, Freigabe
  3.   set Freigabe =1
  4.   set a=0
  5.   if Zahltyp=1 then
  6.     set a=length(the text of member 30)
  7.     set a=a+length(the text of member 31)
  8.     set a=a+length(the text of member 32)
  9.     set a=a+length(the text of member 33)
  10.     if a<16 then
  11.       set the text of member 37="Kartennummer inkorrekt"
  12.       set Freigabe=0
  13.     end if
  14.     if length(the text of member 35)<4 then
  15.       set the text of member 37="Ablaufdatum inkorrekt"
  16.       set Freigabe=0
  17.     end if
  18.   end if
  19.   if length(the text of member 10)<1 then
  20.     set the text of member 37="Keine Titel gewΣhlt"
  21.     set Freigabe=0
  22.   end if
  23.   if length(the text of member 7)<9 or the number of lines ¼
  24. in the text of member 7<4 then
  25.     set the text of member 37="Absenderangaben fehlen"
  26.     set Freigabe=0
  27.   end if
  28.   go to the frame +1
  29. end